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MUSIQUE : Descriptions de procédures de lecture, 
- Procédures de description de lectures, 


Procédures de lecture de descriptions. 


Pat GREUSSAY 


INTRODUCT ION 


|| est reconnu que les programmes de composition musicale 
produisent de la musique insignifiante. Cette carence est due, c'est 
évident, à la sous-estimation à peu près générale de la complexité 
des descriptions nécessaires à spécifier des mus iques élaborées. 

Je crois que cette carence n'est pas moins due à la sous-estima- 
tion des possibilités descriptives offertes par un certain nombre 
d'objets conceptuels utilisés en programmation des ordinateurs. 

|| est clair qu'un programme de composition devrait comporter 
une composante analytique trés puissante, mais je crois que nous 
savons encore trop peu de choses sur la fagon de décrire précisément nos 
analyses. Je crois également qu'i! est Trop tót pour construire de 


Telles composantes. 


http://www.artinfo-musinfo.org Мивіпіо Artinfo # 19, 1974, page 2 / 37 


|| me semble plus nécessaire à l'heure actuelle d'essayer d'exprimer 
ce que nous savons, et les musiciens sont très savants, d'une façon 
suffisamment précise et explicite, pour que ce savoir puisse ètre mis 


sous forme de programmes. 


|| s'agit donc de mettre en machine des descriptions. 

Nous pouvons lire des oeuvres musicales. Nous savons également 
qu'une oeuvre est un objet temporel. Le temps intervient dans l'exécution, 
la lecture, l'analyse et із composition de l'oeuvre. | 

Sauf à écrire de la mus i que ou des programmes, nous ne savons pas 
trés bien comment décrire des processus temporels et leurs interactions. 

C'est en ceci que la programmation est intéressante, pour les 
concepts qu'elle apporte et met en jeu dans la description de 
processus temporels. | 

Je vals essayer de prendre au pied de la lettre la comparaison 
souvent faite entre, d'une part le texte d'un programme et ce program- 
me en activité, d'autre part la partition d'une oeuvre et cette 


oeuvre en exécution ou en lecture. 


Une des raisons avancées pour rendre compte de la médiocrité 
des programmes d'analyse ou de composition, c'est qu'ils sont sans 
mémoire. Mais comment organiser la mémoire? Et encore quoi mettre en 
mémoire? Au préalable à l'analyse il y a un m oment de lecture, 
probablement déterminant. Cette lecture suppose un savoir pré-existant. 
Je ne m'occupe pas de la manière dont ce savoir a été acquis. Plutôt 
je cherche ісі à savoir comment le décrire, et à savoir comment ces 
descriptions peuvent agir. 


Je suppose que ce savoir est par lui-même effect: f. 


Dans ces essais, je travaille sur de la musique tonale, 
supposée être composée. Je n'y tiens pas particulièrement. Reste que 
c'est commode : il y a une structure logique explicitable en partie, 
et je pense que les différents sur les notions de bases y seront les 
moindres. 
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Je peux tire de la musique. Cette lecture prend du temps. 


Lire un de ces fragments me met dans un état d'attention d'un type trés 
spécial (très spécialisé), sans pour autant qu'un processus d'analyse 
alt été proprement lancé. 

Un musicien possède probablement un grand nombre de schémes de lecture 
qu'il n'applique pas encore à ce stade, mais q'il appelle, qu'il rend 
disponible à une application éventuelle. 

Je vais essayer de préciser ces idées en décrivant des morceaux de 


programmes. Ces programmes sont écrits dans le langage CONNIVER. 
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Je lis ce fragment : 


ڪڪ ڪڪ 


Supposons que je cherche à le.spécifler sous forme de relations de 


dominante entre les notes prises par couple. 


(ADD ‘(D SOL RE)) 
(ADD * Ср DO SOL)) 


CADD '(D RE LA)) 


Si j'ai un instant d'oubli, ou que je me demande ce que j'ai lu, je 
peux poser des questions : 


(PRESENT "(CD SOL REI) Ce fragment comporte-t-il une relation 


SOL RE2 
cb de D entre sol et ré? 
мы” RE !X)) Ce fragment comporte-t-il la D de ré? 
C 
Gg PR a 1۷ 5042) Y-a-t-il une note dans ce fragment dont 
(D D 


sol est !a D? 


Questions partielles. Je peux souhaiter obtenir toutes les relations 
connues jusqu'ici. 11 s'agit d'une attitude différente, je veux savoir 
toutes les relations d'un type donné. Je définis une fonction à cet 


effet et je l'applique : 


(DE EVERY (SQ) 


CEVAL (LIST 'FOR-EACH SQ 'CPRIN1 CURRENT))) 
CTERPR I2) 


CEVERY '(D 1х !Y)) 
(D RE LA) CD DO SOL) (D SOL RE) 
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А présent, puis-je, à partir de ce que je sais, décrire des relations 


dérivées? par exemple de sous-dominante : 


(PRESENT "CSD RE SOL)) 
NIL 


Evidemment pas, si je ne sais pas ce qu'est une SD. Que sais-je? 
Y x,y D(y,x) > SD(x,y) 
Etre en relation de SD, c'est quelquechose que je peux déduire, j'en 


fais donc une méthode 


CIF-NEEDED 15-50 (SD ?X ?Y) 
$AUXS$ (X Y) 
CFOR-EACH (D $Y $X) CNOTE))) 


Et je pose une question : 
(PRESENT "(SD КЕ SOL)) 
(SD КЕ SOL) 
Puis toutes les questions concernant cette nouvelle relation 


(EVERY '(SD ?х ?Y)) 
(SD LA КЕ) CSD SOL DO) CSD RE SOL) 


Je poursuis ma lecture 


(ADD "(0 LA MI22 


(ADD "(0 FA DO)) 


(ADD "СО MI 5122 


d 
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Je m'interesse maintenant à un autre type de relation dérivée, moins 


simple : la notion de relative. Et Je demande : 


(PRESENT "(в ?X ?Y)) 


NIL 
|| faut décrire ce que je sals de cette relation. Essayons une description: 
V х,у Jv, D(x,v) A D(v,w) A D(w,y) D R(x,y) 
/ “ 
/ D р D ا‎ 
x ۷ W d 


CIF -NEEDED 15-К (R ?X ?Y) 
SAUXS (X Y V W CYVAL YOD 
(FOR-EACH (D $X !V) 
CAND (PRESENT '(D ,V !W)) 
(PRESENT 'CD ‚м $Y)) 
(NOTE) 
CSETQ Y YVAL)))) 


et Je me demande si je vois une occurence de relatives dans ce fragment : 


(PRESENT '(& ?X ?Ү)) 
(в FA RE) 


Puis toutes les relatives : 


‘(EVERY "CR ?Х ?Ү)) 
(R FA КЕ) (R RE SI) CR DO LA) CR SOL MI) 
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Je pourrais également chercher les napolitaines. Mais je vais changer 
légèrement de point de vue. Au fond j'aurai pu essayer de les repérer à 
la volée. Au fur et à mesure de la lecture. Et pas en réfléchissant et 
en me posant des questions. C'est une fagon d'exprimer cet état ой une 
relation est préoeeupante, où elle saute aux yeux, ой on la guette a 
tout moment. 

J'en fais alors un démon qui, à la lecture même du fragment, sans 


que je me pose de questions, essaye de repérer les N s'il y en a. 


M х,у 


Ум, у D(w,v) л R(v,x) л $50(н, 3 М(х,у) 

V R x 
' 
۱ 

D ` N 

| 
| 

W SC y 


CIF-ADDED GUET-N (D !X !Y) 
ФАЦХ% (X Y V W) 
CASSUMING (SD ,Y ,X) 
CFOR-EACH CD !W IV) 
CAND (PRESENT 'CR ,V ?X)) 

(PRESENT "CSD ‚М ?Y)) 
CTTAB 25) 
(PRINT z(JE VOIS (N ,X ,Ү2222222 
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Et je reprend au début ma lecture du fragment. 


f 
ap 
) 
4 
1 


(ADD 'CD SOL RE)) 
(ADD "(0 DO 501.22 
(ADD '(D RE 1А)? 
(ADD "(0 LA МІ?) 


DD ‘CD ҒА 0022 
SA ы (JE VOIS CN MI РА)? 


(ADD '(D MI 51022) 
ы | (JE VOIS (N MI FA22 


La lecture (le programme) а manqué la relation 

(М Si DO) 
En effet, pour la repérer il aurait fallu 

(D SOL RE) qui existe bien 

et (R RE 51) 

Mais pour que le démon reconnaisse |а présence de la relation (R RE 51), 
i! lui aurait fallu la relation (D MI 51) qu'il ne connait pas encore : 
GUET-N, activé par (D MI 51) intervient, mais suppose (par le 
ASSUMING) la relation de SD (ce qui semble naturel pour une napolitaine), 
i.e. SI - MI. 
En conservant le même démon pour les napolitaines, je dois donc 


modifier ma définition de relative : le repérage se faisant par les 
sous-dominantes : 
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M х,у Ju D(x,v) д SD(w,v) ^ SD(y,w) 2 R(x,y) 


R 
Аы” дайы 
/ N 


D SD SD 


CIF-NEEDED IS-R (R ?X ?Y) 
$AUXS (X Y У W CYVAL YD) 
CFOR-EACH (D $X IN? 
CAND CPRESENT 'CSD IN ,V)) 
(PRESENT “(50 $Y ,W)) 
(NOTE) 
CSETQ Y YVAL)))) 


Et je reprend une nouvelle fois ma lecture au début : 


(ADD '(0 SOL RE22 
CADD 'CD DO SOL)) 
(ADD "CD RE LA22 
(АБО "CD LA м1) 


(ADD ‘(D FA DO)) 
(JE VOIS (N MI ҒАУ) 


(ADD "(9 MI 51)) 


(JE VOIS (М МІ РА)) 
(ЧЕ VOIS (N SI DOD) 
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Je vais maintenant changer de point de vue. Je peux supposer que ce 
savoir harmonique élémentaire n'est pas déductif, mais "procédurel", 
i.e. je peux construire des spéctalistes très bêtes mais tres efficients 
pour répondre à des questions limitées : | 

(СІМ relation note) me donne la note qui est dans la 
relation spécifiée avec !a note- 
argument. 

(IS relation note 1 note 2) sait reconnaitre si la 
relation spécifiée tient entre 


note 1 et nofe 2. 


(DE GIV (RELATION NOTE) 
CCADR (МЕМО NOTE (GET ALLREL RELATION)))) 


(DE IS CRELATION МОТЕ1 NOTE2) 
CEQ NOTEZ CGIV RELATION NOTE1))) 


(КР АСА 'ALLREL 'C 


М CLA+ SI DO RE- N-EXIST 
SOL+ LA 51- DO- N-EXIST 
RE+ MI FA SOL- N-EXIST 
51+ 00+ RE MI- FA- N-EXIST 
Mi+ FA+ SOL LA- N-EXIST) 

S (КЕ- DO SI LA+ М-ЕХІ5Т 
DO- SI- LA SOL+ N-EXIST 
SOL- FA MI RE+ N-EXIST 
FA- MI- RE DO+ 51+ N-EXIST 
LA= SOL FA+ МІ N-EXIST) 


D CFA- DO- SOL- RE- LA- 
MI- SI- FA DO SOL 
RE LA MI S! FA+ 
00% 504% ВЕ+ LA+ MI+ 51+ N-EX IST) 
в CSI* RE+ ҒА“ LA DO MI- SOL- N-EXIST 
LA+ 00% МІ SOL 51- RE- FA- N-EXIST 
МІ» 504% SI КЕ ҒА LA- DO- N-EXIST) 
22 
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Je noterai 
OB+ =df TF OB 
OB- =df P ов 
En pratique je n'utiliserai pas dans ce qui suit les doubles АР ou p , 
c'est la raison de la valeur par défaut N-EXIST. 


Cette idée de repérer des relations à Za volée semble féconde. Je puis 
également inclure dans ce repérage une trace du moment ой Î! a eu lieu, 
ou plus simplement garder une trace de l'ordre dans leque! le repérage 


s'est effectué. 


Je spécifie à cet effet une macro. qui, invoquée, me produit un objet 


unique, différent de tous ceux qui l'ont précédé : 


(MACRO : (LAMBDA С) 'QCSETQ 20N CADD1 20N)))) 
CSETQ 20N 0) 


Puis je définis un nouveau démon qui, à chaque fois qu'une note est lue, 


cherche s'il peut dégager des relations de dominante avec les notes 
précédemment lues. 


CIF-ADDED N-O-T (NOT !X) 
SAUX*$ (X Y) 
CAND CABSENT "(МОТ ,X)) 
CFOR-EACH (NOT !Y) 
(COND 

CCIS 'D x Y) (ADD ! 
(CIS 'D Y X) (ADD ! 

2222 


N ^^ 
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Je lis alors : 


(МАРС !CFA+ SOL+ 00+ LA+ FA+ 00+ RE+ LA+ 00+ RE+ FA+) 
"((АМВОА (X) CADD "(МОТ ,Х2222 


А се point, je demande quelles sont les relations de dominante 


repérées. Les nombres inclus dans les items me permettent de savoir 


dans quel ordre a eu lieu ce repérage. 


(EVERY 'CIN D IX (rä? 
Ch D SOL+ RE+) C3 D RE+ LA+) C2 D FA+ 00+) C1 D DO+ 5014) 


` 


Pour certaines raisons, je peux être amené à пе demander si ces 


dominantes peuvent se mettre en chaîne en formant des fragments de 
cycle de quintes. 
Je définis alors un nouveau spécialiste pour répondre à cette 


question. 
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(DE CYCLE-5 (jj NI М2 X Y Z NX WCTX) 
CFOR-EACH CINI D IX !Y) 
CAND CPRESENT 'CIN2 D ,Y 122) 
CADD 'CCPL ,М1 ,N2) 'WCTX222 
(WHILE (PRESENT ‘CCPL !N1 М2) 'WCTX) 
(WHILE (PRESENT ‘CCPL !NX ,N1) 'WCTX) 
CSETQ N1 NX)) 
(PRESENT "(,М1 D IX !Y)) 
CPRIN1 X) 
CPRIN1 Y) 
(WHILE (PRESENT T ,М1 !N2) 'WCTX) 
(REMOVE 'CCPL , N1 ,N2) 'мстх) 
(PRE SENT "С, N2 D 1X !Y22 
CPRIN1 Y) 
CSETQ М1 N2)) 
CPRIN1 1/00 
(TERPRI)) 


Voici comment l'objet fonctionne. 

Si j'entre par exemple : 

(NOT DO) 

(NOT МІ) 

(NOT RE) 

(NOT 51) 

(NOT SOL) 

(NOT FA) 
la méthode N-O-T crée les items 
(1 D SI ҒА») (2 DMI SI) (5 D SOL RE) 
(4 D DO SOL) (5 D ҒА DO) 
chacun des items créés est de la forme 
(n D notel note2) 

Le spécialiste CYCLE-5 crée un contexte de travail WCTX. Dans ce contexte 


spécialisé, il va ranger des items qu'il crée, de la forme : (CPL п] n2) 


OS 


ou nl et n2 sont les n°” de dominante, tels que note2 de nl est identique 


` 


à note! de n2. 

Dans notre exemple, on aura dans WCTX 
(CPL 2 1) 

(CPL 5 4) 

(CPL 4 3) 
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Puis il recherche les premiers éléments de chaque chaîne de CPL, 
imprime la chaîne, élimine la chaîne, et recommence tant qu'il reste des 
CPL dans WCTX. Ce qui donnera dans notre exemple 


CCYCLE- 5) 
FA DO SOL RE / MI SI FA+ / 


Si j'applique l'objet au fragment de Debussy, j'obtiens : 


(CYCLE-5) 
FA+ DO* 500% REI LA+ / 


à partir des objets dans le contexte 


RE+)) 
хітем (8 D 500+ 
Cx TEM (7 D RE+ LA+23 


FA* SOL* DO+ 
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Changeons encore une fois légèrement de point de vue. 


Je suppose que ma lecture а affaire à un ensemble de notes, ensemble 


ordonné par fa relation APRES = A 


001 RE SOL! МІТ 002 5012 LA MI? 


et constitué dans le contexte comme par exemple 
(А 5012 002) 
(А 5011 КЕ) 
(АДА 5012) 
(А RE DOT) 
(A MI2 LA) 
(A MIT 5011) 
(Р 001) 

i (A DO2 MI) 
001 est premier de la chaîne, ou segment. 


Je peux construire un spécialiste capable de me livrer tous les segments 
présents dans le contexte. 


CDE SEGMENTS (;; X Y) 
CFOR-EACH (P !X) 
CPRINl X) 
CWHILE CPRESENT "СА Ir ,X)) 


CSETQ X CPRIN1 Ү))) 
` CTERPRI))) 


CSEGMENTS) 
DOl КЕ 5011 MI] 002 SOL2 LA МІ? 
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Pour certaines raisons, je peux envisager de segmenter le fragment fu, 


par exemple 


| | ; 


. obtenant ainsi le nouveau contexte 


(Р р01) (P МІТ) 

(А КЕ 001) (А 002 МИ) 
(А 5011 RE) (А 5012 002) 
(A LA 5011) 

(A МІ2 LA) 


Pour conserver la cohérence de mes objets ordonnés, je devrai prendre 
certaines précautions. Ces précautions seront décrites par un ensemble 
de démons spécialistes. Ces démons s'activeront sur présentation ou 
élimination de l'item. 


(A notel note2) 
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CIF-ADDED -1ER CA !X !Y) 
GAUX% CX) 
CAND СРКЕЅЕМТ 'CP ,Х22 
(REMOVE 'CP ,Х2222 


Si X était premier, i! ne doit plus l'être à présent. 


CIF-ADDED X-SUC-QQ1 CA !X !Y) 
%$AUX% (X Z) 
(АМО CPRESENT "(А ,X 1722 
(REMOVE "(А ,X ,22222 


Si X était le successeur d'un Z, il ne doit plus l'être. 


CIF-ADDED QQ1-SUC-Y CA ІХ !Ү) 
ФАМХ% CY 2) 
CAND (PRESENT "СА 12 ,Y)) 
(REMOVE "(А ,2 ,Ү2222 


Si Y avait un successeur Z, се ne doit plus être le cas 
CIF-REMOVED +1ER CA !X IY 


ФАОХФ (X) | 
(ADD "CP ,Х222 


Si X n'est plus le successeur de Y, X doit devenir premier. 


- 17 - 


Au moins conceptuellement ces démons peuvent être activés en méme 


temps. 
(A notel note2) active “ТЕН 
X-SUC-QQ1 
QQ1- SUC- Y 
et -|ER 
X- SUC- QQ 1 acti vent *1ER 
QQ1- SUC- Y 
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CSEGMENTS) eq ل ا‎ 
DOl КЕ SOL1 МІ1 DO2 SOL2 LA MI2 ——*— E.g — 
(ADD "(СА 5011 DO1)) 

CSEGMENTS) _ 

КЕ е ==. сарае 
001 5011 М11 р02 5012 LA М12 == S =т= ы 
(ADD "СА MI2 RED) 

CSEGMENTS) е се 
КЕ ni? x СО =F 
D01 SOL1 MI1 D02 SOL2 LA — 


(ADD "(А SOL2 501100 


(SEGMENTS) 

MI1 002 

RE MI2 

001 5011 5012 LA 


(ADD "СА RE 00222 


(SEGMENTS) = 


MI1 002 RE М12 | —— = == EEN 
001 $011 SOL2 LA 


|| est clair que je ne dois pas essayer de former ісі une chaîne 
circulaire, |а chaîne perdant alors son premier ne serait plus repérable 
par le spécialiste SEGMENTS. 
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Les lectures envisagées jusqu'ici étaient toutes des lectures 


"n "n 


à l'instant" ou bien "à l'instant et en arrière". Je m'interesse 
ісі à des lectures "en avant". Dans certains cas, nous sommes dans 
des situations ой nous avons des raisons de penser qu'un objet bien 
spécifié devrait arriver, quitte à être déçus s'if n'arrive pas, ou 
encore à oublier simplement qu'on l'avait prévu. Je voudrai bien 
exprimer précisément le fait que parfois, je poste des guetteurs 


dans l'avenir de ma lecture. 


Voici un exemple d'une telle situation. 


J'y recherche les relatives : 


R 
fa do sol re | la 


et je constate que sol n'a pas de relative (et n'arrive qu'une fois). 


J'attend ou je guette le si dans ce qui suit 


si fa ` do sol re la 
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Ce moment de 1а lecture, je pourrai l'exprimer ainsi 


CFOR-EACH (МОТ !X) EE | | 
(СЕХІ5Т (NOT !Y) repérage des relatives 
CCOND | 
(CIS 'R Y X) 
(ADD 'CR ,Y ,Х222 
CCFAIL))))) 


(EVERY 'CR IX 1Ү22 
(R LA+ DO+) CR МІЗ SOL+) 


Puis, pour chacune des notes X présentes, sl elle n'est pas inscrite 
dans une relation de relative, je poste un guetteur qui attend son 


arrivée dans le futur de la lecture. Une sorte de chat endormi, a la 


` 


moustache sensible à la note qui est la relative de X. 


CFOR-EACH (NOT IX) 
COR CPRESENT 'CR !Y ,X)) 
(PRESENT "(к ,X !Y)) 
CGUETTER CGIV IR x)))) 


GUETTER est une fonction assez complexe qui poste fe guetteur. ` 


(ОЕ GUETTER (X Y Z) 
(PRINT =(JE GUETTE ,X)) 
(PUT X Z 'RAISON) 


CADD (EVAL 
=ÇIF-ADDED ,X (NOT ,X) 
$AUX$ С) 
EMT @="CENFIN ,X ARRIVED) 
# 


(REMOVE !,X) 
(RPLACD !,X) )))) 
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А son appel, guetter aura un argument obligatoire X, la note 
dont on guettera l'occurence. L'argument Z facultatif sera mis dans 
la p-liste de X sous l'indicateur RAISON, on pourra y placer fa 
raison pour laquelle la note X était guettée. 

Puis GUETTER construit un démon de même nom que X, l'inclut dans le 
contexte, où il attend en silence l'arrivée de l'item (NOT note- 
guettée). Si la note arrive, le démon se réveille, indique qu'il 

est en activation par la note d'éveil, accomplit l'action Y spécifiée 
en argument facultatif de GUETTER, puis ceci fait, i! s'élimine, 


ayant joué son róle, du contexte courant, et se détruit physiquement. 


Dans notre exemple, le démon synthétisé sera, par l'appel de 
(GUETTER (GIV 'R X)) avec X = SOL+ 


CIF-ADDED SI (NOT SI) 


%$AUX% NIL 
.XPRINT (QUOTE CENFIN SI ARRIVE))) 
NIL 


СКЕМОУЕ (QUOTE SI)) 
CRPLACD (QUOTE S122) 


qui attend l'arrivée de |а note (NOT SI). SI elle arrive (et elle 
arrive en effet), le démon signalera 
"ENFIN SI ARRIVE" puis se détruira. 


Cependant, quand le démon SI а été posté, je pensais spécialement aux 
relatives. Or ce guetteur peut être activé alors que je n'y pense plus 
du tout. Je voudrai donc garder une trace de l'état d'esprit dans 


lequel j'étais lorsque j'ai ordonné la consti tution du guetteur par 
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(GUETTER (GIV 'R X) 
(ADD '(R ,X @(GIV 'R X)))) 
ce qui me donnera le démon ` Е 
` (IF-ADDED $1 (NOT $1) 
ФАЦХЯ NIL 
(PRINT '(ENFIN SI ARRIVE)) 
(ADD "(В SOL+ S1)) | 
(REMOVE 'S  — 
(RPLACD 'SI)) 
qui, lórsque 5! arrivera, ajoutera au contexte l'item 
(В SOL+ SI) 


Donc, GUETTER me permet également de lancer des actions à retardement. 
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Voyons d'autres raisons de mettre en place des guetteurs. 


Toujours avec le méme exemple. 


C'est. ]e n? (7) du premier Nocturne de Debussy. 


| 


Cp 


f | 


ТІП! 


ШІ 


| | 


| 


lin 
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L'arrivée du SI # , sensible de DOF , pourrait me faire utiliser 
une règle de lecture que voici : 


"Stil existe une sensible de X, guetter 1а napolitaine 
de X. 


S'il existe une napolitaine de X, attendre la sensible 
de X." | 


Or j'ai repéré 514 sensible de ГОЙ. Je ne suis pas trop surpris 


quand arrive, quelques mesures plus tard ^ 


p tres гірғешіу d T 


Prés soufenu 


ae 
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i.e. le RE h napolitaine de DOH. 


Restons dans Nuages, а la mesure | cette fois. 


L'arrivée du бір , napolitaine de LA me SES de mettre en jeu 


le démon que voici 


CIF-ADDED N-A-P (М ІХ !Y) 
ФАЧХФ (X Y Z POLE] POLE2 RELATION) 
CSETQ Z CGIV "5 x22 
(GUETTER Z 
z(PRINT (СЕТ ',Z "RAISON)) 
ш(,Х AYANT SA МАР JE GUETTE SA SENS)) 
(СЕХІ5Т (POLE POLE 1) 
COR CPRESENT 'CIRELATION ,POLE1 ,X)) 
_ CFAIL)) 
CFOR-EACH CPOLE !POLE2) 
CCOND 
CCNEQ POLE1 POLE2) 
CSETQ Z CGIV RELATION POLE2)) 
CGUETTER CGIV 'N Z)) 
CGUETTER CGIV 'S 722222222 
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L'idée c'est : si j'ajoute au contexte la relation 
(N x y) | 

. guetter la sensible de x, Т.е. créer un démon qui, 
s'il repére |а sensible de x indique qu'i! la guettait parce que x 
avait sa napolitaine. | | | 

. ӨТІ! existe (CEXIST) un pôle POLET avec une 
RELATION avec x, pour tous les autres póles POLE2 , guetter la 
sensible et la napolitaine de la note qui a avec POLE2 la méme 


relation que x a avec POLEN. 


Dans notre exemple, avec le contexte 
(POLE 51) 
(POLE RE) 
(D RE LA) 


j'obtiendrai, si j'ajoute au contexte la relation 


(ADD 'CN LA 51-22 
(JE GUETTE SOL+) 
(JE GUETTE SOL) 
(JE GUETTE MI+) 


En effét l'activateur est (N LA SH, or on a (D RE LA) et je sais 
que (POLE RE). Par ailleurs le démon N-A-P sait qué (POLE 51), 


que la D de SI est РАЗ, et que la N de РАФ est SOL et que la S de 
FAH est MIY. шаға 


|| met en place, par conséquent des guetteurs qui attendent SOL ei 


MI. 
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Et le démon N-A-P n'a pas tort : 


activateur 


des guetteurs de 
et j'obtiendrai donc bientôt 


CADD 'CNOT SOL+)) 
СЕМҒІМ SOL+ ARRIVE) 02 
(LA AYANT SA МАР JE GUETTE SA SENS) 


(ADD "(NOT SOL)) 
CENFIN SOL ARRIVE) 


(АБР "(МОТ MI+)) 
CENFIN MI* ARRIVE) ` 


Lorsque le guetteur posté, par exemple (NOT SOL) se réveille 
et me signale | | | 
(ENFIN SOL ARRIVE) 
je puis souhaiter, ayant complètement oublié les raisons pour 
lesquelles je voulais que le SOL soit guetté, lui demander pourquoi 


le fait que le SOL arrive est interessant. 
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` 


J'utiliserai à cet effet le spécialiste 
(DE LIRE-RAISONS (NOTE ;; L) 
СЕ5САРЕ ЕХІТ 


CSETQ L (GET NOTE 'RAISON2) 
CWHILE L 


COR (READ) CEXIT)) 
CPRINT CNEXTL 1220 
(PRINT 'VOILA))) 


et je modifierai ainsi le démon N-A-P 


CIF-ADDED N-A-P (N !X !Y) 


tAUX% CX Y 2 POLE1 POLE? ама 
(5ЕТ0 2 (61У "5 x)) 
CGUETTER 2 


=CPRINT (GET Us Зале 
z(,X AYANT SA МАР 


JE GUETTE SA SE 
CCEXIST (POLE !POLE1) ея 
COR (PRESENT 'CIRELATION ,POLE1 ,X)) 
CFAIL2) 
CFOR-EACH (POLE !POLE2) 
(COND 


CCNEQ POLE POLE2) Ce ie, se mag 
CSETQ 2: (GIV RELATION: POLE2)) ` | 
CGUETTER CGIV IN 2) 

"CLIRE-RAISONS 'Q(GIV, N 2)) 
=CC@CGIV "М 2) МАР DE ,Z) 


(,2 ,RELATION DÉI ,POLE2) 
C, POLE2 POLE) 
C,POLE1 POLE) 


CSX ,RELATION DE. ,POLE15. 
C,Y МАР DE ,X29) - 


CGUETTER CGIV 'S 72222229 


Je (ou un démon, ou une autre partie d'un programme) peux 


alors demander pourquoi le guetteur SOL se fait ainsi remarquer. Dans 


un sens limité le guetteur eonnatt les raisons (it peut y avoir. 
accès) pour lesquelles il а été posté. | 
Je note par "—y" les questions posées au guetteur 


et par "е__" ses réponses. 
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CENFIN SOL ARRIVE) 


POURQUOI 
(50 NAP DE FA+) 


ET-ALORS 
CFA+ D DE SI) 


— 

«егете» 

— 

< 

— ET-ALORS 
<— (SI POLE) 
--»  ET-ALOKS 
<-- (RE POLE) 
—> 
dM 


ET-ALORS 
(ҺА D DE КЕ) 


= —> ET-PUIS-APRES 
«-- (51- NAP DE LA) 


< VOILA 


et aprés avoir livré ses raisons, le guetteur se retire. 
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CONCLUSION 


Lire de la musique est une activité. Nous avons, face a un 
texte, un certain nombre de notions, certaines assez précises, d'autres 
tout a fait floues. Nous avons aussi certains schémes d'explication 
plutôt rigides, mais également des schèmes de schèmes, des sortes de 
matrices qui nous permettent quelquefois, devant l'échec de nos 
procédures d'explication, d'en former de nouvelles, peut être plus 
appropriées au texte musical particulier dont i! s'agit. Je crois 
que nous disposons à présent des Outils nécessaires pour décrire 
ces notions, sans trop les réduire, au moyen d'ordinateurs. L'ordi- 
nateur est ici le moyen d'en attester l'effectivité. Toutefois je 
ne pense pas que les procédures construttes dynamiquement, paramè- 
trées par le texte au cours de sa lecture, soient réellement de 
nouvelles procédures. Je pense plutót qu'il s'agit de corrections, 
d'une mise au point continue de Жы gere айган face à 


un nouveau cas particulier. 
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HIKARI KKK RIKER eee A RATE 


5 UNE FONCTION LISP QUI FAIT DES CANONS À 


% 
. * 


kkkkkkkkkkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkikš 


Cette fonction comprend une fonction principale, CANON à 4 
paramètres et deux fonctions auxiliaires RAZCON et REVERS. 
Flle calcule un canon de longueur donnée (en valeurs égales), 
. d'un nombre de voix données, avec un contrôle métodique très faible et 
une écriture harmonique où les intervalles tolérées sont, à deux voix, 


la quarte et la quinte, et à plus de deux voix l'unisson et la quinte. 


Les Fonctions Auxiliaires 


RAZCON admet un nombre indéfini d'arguments. Sert à remettre 
| à zéro Les compteurs qu'on lui donne en arguments. 
REVERS | livre la liste-miroir de la liste qu'on lui donne en 
| argument. | 
ex.: (REVERS "(А B C)) donne (C B А) 
(REVERS '((A В) C) donne (C (А В)) 


La Fonction Principale 


Paramètre de la fonction : 


та тж) ge s «жа em pe x ма um vm emm Ше G om em vn em ep ep ep ға gp сз 


: nombre de voix 


A 

в: Longueur du canon 

О: décalage entre les voix 
С: nombre aléatoire de départ 


Variables internes : 


: note courante 
Ro: pile du canon (s'empile à l'envers, CAR R désignant la 


dernière note émise) 
eefa 
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V : оп y duplique R pour puroir dépiler à son aise 


qualifie le mouvement ascendant (S — - 1) ou 


descendant (S - 1) 
D: intervalle mélodique pris entre О et 4, O désignant 
l'unisson et 4 la quinte 
X 
Y 


compteur qui sert au dépilage 


4% 


intervalle harmonique entre deux notes simultanées 


Déroulement des opérations 


жь dup AD em Um en ее ыс em «ә ою om - ж GUD UND wm en gp "A ар o um gg (m m 


- la première note est prise aléatoirement, puis imprimée 

- En HOP) | | 
(Ré) initialisation des compteurs 

- Calcul de S selon la hauteur de la dernióre note émise. 
Si elle est inférieure à 4, mouvement montant 
Si elle est supérieure à 8, mouvement descendant 
Si поп, choix aléatoire 

e Tirage aléatoire modulo A de La valeur de D 

Je trouve une nouvelle note possible en fonction de D et de S 
Si la longueur du canon est inférieure au décalage U, il 
n'y aura pas de simultanéité. Je vais à l'impression 

- En HAPI : 
Je dépile V, Le CAR V sera la première des notes de 1а 
voix initiale qui sera entendue simultanément à une nou- 
velle note que j'ai tirée aléatoirement. 

- En HAP2 : 
Je mets en Y l'intervalle harmonique. Il est ramené à un 
intervalle compris entre l'unisson et l'octave (une neuvième 
par exemple sera considérée comme une seconde). 
On teste si Ү est un intervalle permis. Si oui оп l'imprime. 
Si non on supprime la note courante et on va chercher une 


autre note en se rendant en HOP. 


Ces opérations sont recommencées autant de fois qu'on désire 
de notes dans le canon. 

A la fin, on retourne comme valeur de 1а fonction la liste 
des nombres qui représentent les notes, dans l'ordre dans lequel ils 


seront entendus. 
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(PRETTY АРРЕМО REVERS RAZCON САМОМ) 


(АРРЕМО 
CLAMBDA (ХХХ YYY) 
(COND 
CCNULL XXX) 
YYY) 
(CONS (CAR XXX) CAPPEND (CDR XXX) YYY)))))) 
(REVERS | 
CLAMBDA CL) 
CCOND 
CCNULL $L) 
NIL) 
CT 
(APPEND (REVERS (СОВ %L)) CLIST ` 
CCAR $,L222222D 
(RAZCON 
(LAMBDA (%L) 
СМАРС 
SL 
(QUOTE CLAMBDA C$L) 
CSET SL 0222222 
CCANON | 


CLAMBDA CA В U C) 
(PROG (Q R S D V X Y) 
CRAZCON Q X Si Е 
CSETQ С (REM (TIMES ` 


C 
72 109320 
(5ЕТ0 Q CADD1 (REM С 12220 
CSETQ R (LIST ` 
QD) 
(GO OK) 
HOP1  CRAZCON X) 
(NEXTL R) 
CSETQ Q CCAR R22 
HOP CSETQ S CCOND 
| CCLT Q 4) 


1) 
CCGT Q 8) 
-10 

CT 


- 33 - 


(CAR CNTH CADD1 (REM C 2)) CQUOTE C-1 12222222 


CSETQ C (REM (TIMES 
C 
7) 1093)) 
CSETQ D CREM С 5^2) 
CSETQ Q (PLUS 


Q 
(TIMES 


S 
р222 
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(SETQ V CSETQ R (COS ^ R22) 
CAND 
(LT CLENGTH V) U) 
CGO OK)) 
HAP1  CCOND 
CCLT U CADD1 (LENGTH У222 
CSETQ V CNTH U У222 
CT 
(60 HAP2))) 
CSETQ X CADD1 Х22 
(COND 
CCLT X (АООТ A2) 
(GO HAP1)) 
CT 
(GO HAP2))) 
НАР2  CSETQ Y (DIFFER CCAR R) CCAR VD) 
(COND 
CCLT Y 0) 
CSETQ Y CPLUS 
8 


Y222 
(CGT Y 7) 
CSETQ Y CDIFFER Y 72222 
(COND 
CCEQ A 20 
(COND 
CCMEMBER Y (QUOTE (5 47» 
(GO OK)) 
CT 
(GO НОР12222 
CCMEMBER Y (QUOTE CO 4))) 
(GO OK)) 
CT 
(GO HOP1))) 
(RAZCON X Y 70 
OK (RAZCON X) 
CSPACES 40) 
(PRINT CCAR CNTH Q (QUOTE (DO RE МІ FA SOL LA SI DOH REH 
МІН ҒАН SOLH))) 
22 
COR 
СЕК CLENGTH R) В) 
(GO HOP)) 
(RETURN CREVERS В22222 
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AVERTISSEMENT C— 


Le présent bulletin répond à une visée toute didactique : 


livrer sous forme accessible aux nouveaux venus dans les groupes 
de travail courants 

- de l'information technique et bibliographique en rapport 
avec leurs disciplines 

des programmes commentés de tous niveaux permettant un ac- 
cès relativement rapide à des techniques de programmation аррго- 
priées, ainsi qu'à une implémentation aisée. 

On s'est efforcé, dans la mesure du possible, de ne pas 
établir de clivage trop net entre les disciplines concernées 
( musique, arts plastiques, poésie, architecture, logique, infor- 

 matique), mais tout au contraire de les unifier, ne serait-ce 
que par des techniques de programmation communes. 

L'aspect pédagogique d'ARTINFO/MUSINFO reflète une préoccu- 
pation constante du groupe, à savoir ne pas se satisfaire en der- 
nier ressort de méthodes de programmation trop élémentaires. 

Pour tous renseignements et composition des livraisons à 
venir, s'adresser à Jacques ARVEILLER, Département d'Informatique, 
Université de PARIS VIII, Route de la Tourelle, 75571 PARIS CEDEX 12. 
Pour tout envoi, d'adresser à Patrick GREUSSAY, méme adresse. 

ARTINFO/MUSINFO est imprimé au Département d'Informatique 
de l'Université de PARIS VIII. 


Page 34 ligne 20, lire 9 au lieu de 8 


Page 34 ligne 41, lire (EQ (LENGTH R) B) au lieu de (EK (LENGTH R) B) 


Рас GREUSSAY : MUSIQUE : Descriptions de procédures de lecture, 
Procédures de description de lectures, Procédures de lecture de 
девскірбсіоп5..........».»............: 226% Q @ O 9 Q e Q 0 © e e + @ © © 9 e e з v e e 1 
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